PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Utilities/Random Stuff/Calculator/background_2673.txt

Text File | 1988-04-24 | 19.5 KB | 939 lines

-- background: 2673 from stack: in
-- bmap block id: 3995
-- flags: 0000
-- background id: 0
-- name: TestBack
----- HyperTalk script -----
On OpenBackground
  hide field 8
  hide field 9
  if the seconds mod 5 = 0 then
    show field 9
    repeat until the mouseClick
    end repeat
    hide field 9
  end if
End OpenBackground



-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=23 top=43 right=101 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  visual effect dissolve slow
  go Home
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=263 right=284 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C
----- HyperTalk script -----
on mouseUp
  global myX
  put "" into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  put 0 into myX
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=330 top=128 right=149 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: x^2
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put field 2 & "^2"& return & "=" & return after last line of field 1
  put (x ^ 2) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=331 top=156 right=177 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ÷
----- HyperTalk script -----
on mouseUp
  global myX
  put field 2 into myX
  put myX & return after last line of field 1
  put "√∑" & return after last line of field 1
  put "" into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "√∑" into field 7
  click at 154,262
  click at 154,262
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=331 top=183 right=204 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: *
----- HyperTalk script -----
on mouseUp
  global myX
  put field 2 into myX
  put myX & return after last line of field 1
  put "*" & return after last line of field 1
  put "" into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 7
  put "*" into field 6
  click at 154,262
  click at 154,262
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=331 top=211 right=232 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: -
----- HyperTalk script -----
on mouseUp
  global myX
  put field 2 into myX
  put myX & return after last line of field 1
  put "-" & return after last line of field 1
  put "" into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 7
  put "-" into field 5
  click at 154,262
  click at 154,262
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=331 top=238 right=260 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: +
----- HyperTalk script -----
on mouseUp
  global myX
  put field 2 into myX
  put myX & return after last line of field 1
  put "+" & return after last line of field 1
  put "" into field 2
  put "+" into field 4
  put "" into field 7
  put "" into field 5
  put "" into field 6
  click at 154,262
  click at 154,262
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=331 top=263 right=284 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: =
----- HyperTalk script -----
on mouseUp
  global myX
  put field 2 into y
  put field 2 & return after last line of field 1
  put "=" & return after last line of field 1
  if field 4 = "+" then put (y + myX) into field 2
  if field 5 = "-" then put (myX - y) into field 2
  if field 6 = "*" then put (y * myX) into field 2
  if field 7 = "√∑" then put (myX / y) into field 2
  put field 2 & return after last line of field 1
  put "" into field 7
  put "" into field 6
  put "" into field 5
  put "" into field 4
  put 0 into myX
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=284 top=128 right=149 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: %
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "%" & field 2 & return & "=" & return after last line of field 1
  put (x / 100) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=284 top=155 right=176 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: √
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "‚àö" & field 2 & return & "=" & return after last line of field 1
  put sqrt(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=239 top=128 right=149 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1/x
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "1/" & field 2 & return & "=" & return after last line of field 1
  put (1 / x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=239 top=155 right=176 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: !
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put field 2 & "!" & return & "=" & return after last line of field 1
  put fact(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp

function fact z
put 1 into m
repeat while z > 1
  put (z * m) into m
  put (z - 1) into z
end repeat
return m
end fact



-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=234 top=182 right=204 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 7
----- HyperTalk script -----
on mouseUp
  put "7" after last line of field 2
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=266 top=182 right=204 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 8
----- HyperTalk script -----
on mouseUp
  put "8" after last line of field 2
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=299 top=182 right=204 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 9
----- HyperTalk script -----
on mouseUp
  put "9" after last line of field 2
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=234 top=210 right=232 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 4
----- HyperTalk script -----
on mouseUp
  put "4" after last line of field 2
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=266 top=210 right=232 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 5
----- HyperTalk script -----
on mouseUp
  put "5" after last line of field 2
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=299 top=210 right=232 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 6
----- HyperTalk script -----
on mouseUp
  put "6" after last line of field 2
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=234 top=238 right=260 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  put "1" after last line of field 2
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=266 top=238 right=260 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  put "2" after last line of field 2
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=299 top=238 right=260 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  put "3" after last line of field 2
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=266 top=263 right=284 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0
----- HyperTalk script -----
on mouseUp
  put "0" after last line of field 2
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=430 top=48 right=95 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ?
----- HyperTalk script -----
on mouseUp
  show field 8
  repeat until the mouseClick
  end repeat
  hide field 8
end mouseUp



-- part 24 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=75 top=148 right=269 bottom=167
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paper


-- part 25 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=233 top=69 right=93 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Screen


-- part 30 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=208 top=26 right=46 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: RickHelp


-- part 26 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=239 top=108 right=121 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: +


-- part 27 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=261 top=108 right=121 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: -


-- part 28 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=283 top=108 right=121 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: *


-- part 29 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=305 top=108 right=121 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ÷


-- part 32 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=234 top=263 right=284 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: .
----- HyperTalk script -----
on mouseUp
  put "." after last line of field 2
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=239 right=260 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sin
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "sin(" & field 2 & ")"& return & "=" & return after last line of field 1
  put sin(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=211 right=232 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cos
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "cos(" & field 2 & ")"& return & "=" & return after last line of field 1
  put cos(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=183 right=204 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: atan
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "atan(" & field 2 & ")"& return & "=" & return after last line of field 1
  put atan(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=156 right=177 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: exp
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "exp(" & field 2 & ")"& return & "=" & return after last line of field 1
  put exp(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 37 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=128 right=149 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ln
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "ln(" & field 2 & ")"& return & "=" & return after last line of field 1
  put ln(x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=330 top=101 right=122 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: x^y
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "10^" & field 2 &  return & "=" & return after last line of field 1
  put (10 ^ x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=374 top=101 right=122 bottom=410
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: +/-
----- HyperTalk script -----
on mouseUp
  put field 2 into x
  put "(+/-)" & field 2 &  return & "=" & return after last line of field 1
  put (- x) into y
  put y & return after last line of field 1
  put y into field 2
  put "" into field 4
  put "" into field 5
  put "" into field 6
  put "" into field 7
  click at 154,262
  click at 154,262
  click at 154,262
end mouseUp



-- part 42 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=341 top=100 right=310 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help?


-- part 43 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=90 top=80 right=307 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name